home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / amos_turbo / demos / double_buf_scroll.amos / double_buf_scroll.amosSourceCode
Encoding:
AMOS Source Code  |  1980-08-18  |  832 b   |  30 lines
  1. Screen Open 0,320,200,16,Lowres
  2. 'No multitasking...  
  3.  Extension_12_0016 
  4. 'DOUBLE BUFFER...THANX !!! 
  5. Double Buffer 
  6. 'WAIT UNTIL SCREENS PROPERLY INITIALISED...  
  7. Wait Vbl 
  8. 'CANCEL THE DOUBLE BUFFERING PROCESS...  
  9. Autoback 0
  10. 'Ok, define the first BLIT.  
  11.  Extension_12_031E 0,1,0,0 To 320,120,-1
  12. 'SWAP THE SCREENS AND THEREFORE ALSO THE BITMAPS ETC...  
  13. Screen Swap 
  14. 'Define the second BLIT... 
  15.  Extension_12_031E 0,2,0,0 To 320,120,-1
  16. 'REACTIVATE THE DOUBLE BUFFERING PROCESS ! 
  17. Autoback 2
  18. 'BRING YOUR STUFF ON SCREEN... 
  19. For I=1 To 25
  20.    Print "AMOS!AMOS!AMOS!AMOS!AMOS!AMOS!AMOS!AMOS"
  21. Next 
  22. Repeat 
  23.     Extension_12_00A6 200
  24.    'Ok, do the scrolling on the Physical and Logical screen...
  25.     Extension_12_0340 1 To 2
  26. Until Extension_12_03B8 
  27.   Extension_12_0354 1
  28.   Extension_12_0354 2
  29. 'ENABLE MULTITASKING...
  30.  Extension_12_0006